home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1997 / MacHack 1997.toast / Hacks / Hacks ’93 / Inside Mac Movie Toolbox Code / mtb2.c < prev    next >
Encoding:
Text File  |  1992-10-22  |  755 b   |  33 lines  |  [TEXT/KAHL]
  1. //    Copyright:    © 1992 by Apple Computer, Inc., all rights reserved.
  2.  
  3. #include "mtb.h"
  4.  
  5. Movie GetMovie (void)
  6. {
  7.     OSErr                         err;
  8.     SFTypeList                     typeList = {MovieFileType,0,0,0};
  9.     StandardFileReply            reply;
  10.     Movie                         aMovie = nil;
  11.     short                         movieResFile;
  12.  
  13.     StandardGetFilePreview (nil, 1, typeList, &reply);
  14.     if (reply.sfGood) {
  15.         err = OpenMovieFile (&reply.sfFile, &movieResFile,
  16.                                     fsRdPerm);
  17.         if (err == noErr) {
  18.             short                 movieResID = 0;        // want first movie
  19.             Str255                 movieName;
  20.             Boolean                 wasChanged;
  21.         
  22.             err = NewMovieFromFile (&aMovie, movieResFile,
  23.                                              &movieResID,
  24.                                             movieName, 
  25.                                             newMovieActive,        // flags
  26.                                             &wasChanged);
  27.             CloseMovieFile (movieResFile);
  28.         }
  29.     }
  30.     return aMovie;
  31. }
  32.  
  33.